home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / MATHS / RLAB / RLAB125.ZIP / !RLaB / examples / fft < prev    next >
Text File  |  1996-04-09  |  138b  |  11 lines
  1. fft_test = function ( N )
  2. {
  3.   local (a, b, c, d)
  4.  
  5.   a = rand (N, 1);
  6.   b = fft(a);
  7.   c = ifft(b);
  8.   d = abs (c - a);
  9.   return max (d);
  10. };
  11.